home *** CD-ROM | disk | FTP | other *** search
/ cyber.net interactivo 1997 January / inter@ivo 1997-01.iso / demos / mail / scripts.cst / 00002.ls < prev    next >
Encoding:
Text File  |  1996-07-07  |  19.4 KB  |  798 lines
  1. -- Movie action handlers
  2. on D01
  3.   global QTsprite, QTspriteDuration, QTspriteName, TC
  4.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  5.   
  6.   set event1 = 33 -- centenary
  7.   set event2 = 179 -- hundred
  8.   set event3 = 550 -- bottom text
  9.   set event4 = 1200 -- bkgnd build 0
  10.   set event5 = 1290 --  bkgnd build 1
  11.   set event6 = 1350 --  bkgnd build 2
  12.   set event7 = 1450 -- bkgnd build 3
  13.   set event8 = 1480 --    4
  14.   
  15.   if (TC > event1 and TC <= event2 - 1) then
  16.     set the visible of sprite 6 to TRUE 
  17.     if done1 <> the frame then
  18.       puppetTransition 07, 1, 2, FALSE
  19.       set done1 = the frame
  20.       updatestage
  21.     end if    
  22.   else if (TC > event2 and TC <= event3 - 1) then
  23.     set the visible of sprite 7 to TRUE 
  24.     if done2 <> the frame then
  25.       puppetTransition 05, 1, 1, FALSE
  26.       set done2 = the frame
  27.       updatestage
  28.     end if    
  29.   else if (TC > event3 and TC <= event4 - 1) then
  30.     set the visible of sprite 8 to TRUE 
  31.     if done3 <> the frame then
  32.       puppetTransition 05, 1, 2, FALSE
  33.       set done3 = the frame
  34.       updatestage
  35.     end if 
  36.   else if (TC > event4 and TC <= event5 - 1) then
  37.     set the visible of sprite 9 to TRUE 
  38.     
  39.     if done4 <> the frame then
  40.       puppetTransition 07, 1, 4, FALSE
  41.       set done4 = the frame
  42.       updatestage
  43.     end if 
  44.   else if (TC > event5 and TC <= event6 - 1) then
  45.     set the visible of sprite 10 to TRUE
  46.     
  47.     if done5 <> the frame then
  48.       puppetTransition 09, 1, 4, FALSE
  49.       set done5 = the frame
  50.       updatestage
  51.     end if 
  52.   else if (TC > event6 and TC <= event7 - 1) then
  53.     set the visible of sprite 11 to TRUE
  54.     
  55.     if done6 <> the frame then
  56.       puppetTransition 09, 1, 4, FALSE
  57.       set done6 = the frame
  58.       updatestage
  59.     end if 
  60.   else if (TC > event7 and TC <= event8 - 1) then
  61.     set the visible of sprite 12 to TRUE      
  62.     
  63.     if done7 <> the frame then
  64.       puppetTransition 09, 1, 4, FALSE
  65.       set done7 = the frame
  66.       updatestage
  67.     end if 
  68.   else if (TC > event8 and TC <= event8 + 100) then
  69.     set the visible of sprite 13 to TRUE      
  70.     
  71.     if done8 <> the frame then
  72.       puppetTransition 09, 1, 4, FALSE
  73.       set done8 = the frame
  74.       updatestage
  75.     end if
  76.   end if
  77.   
  78.   
  79.   return
  80.   
  81. end
  82.  
  83.  
  84. on D02a
  85.   global QTsprite, QTspriteDuration, QTspriteName, TC
  86.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  87.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  88.   global hEdgesin, vblind, hblind, stripsBottomLeft
  89.   
  90.   
  91.   set event1 = 32 -- 5 million
  92.   set event2 = 150 -- 4 thousand
  93.   set event3 = 264 -- 50 videos
  94.   set event4 = 427 -- and graphics
  95.   set event5 = 514 -- games
  96.   set event6 = 584 --  audio summaries
  97.   set event7 = 665 -- astrology
  98.   set event8 = 764 -- calculator
  99.   set event9 = 828 -- sports
  100.   set event10 = 928 -- cook book
  101.   set event11 = 1020
  102.   
  103.   if (TC > event1 and TC <= event2) then
  104.     doEvent1 6, TRUE, vcentreout, 1, 12, FALSE  
  105.   else if (TC > event2 and TC <= event3) then
  106.     doEvent2 7, TRUE, vcentreout, 1, 12, FALSE    
  107.   else if (TC > event3 and TC <= event4) then
  108.     set the visible of sprite 6 to FALSE
  109.     set the visible of sprite 7 to FALSE
  110.     doEvent3 8, TRUE, vcentreout, 1, 12, FALSE
  111.   else if (TC > event4 and TC <= event5) then
  112.     doEvent4 9, TRUE, hcentreout, 1, 12, FALSE    
  113.   else if (TC > event5 and TC <= event6) then
  114.     doEvent5 10, TRUE, vcentreout, 1, 12, FALSE 
  115.     
  116.   else if (TC > event6 and TC <= event7) then
  117.     doEvent6 11, TRUE, hcentreout, 1, 12, FALSE  
  118.     
  119.   else if (TC > event7 and TC <= event8) then
  120.     doEvent7 12, TRUE, vcentreout, 1, 12, FALSE  
  121.     
  122.   else if (TC > event8 and TC <= event9) then
  123.     doEvent8 13, TRUE, hcentreout, 1, 12, FALSE
  124.     
  125.   else if (TC > event9 and TC <= event10) then
  126.     doEvent9 14, TRUE, vcentreout, 1, 12, FALSE  
  127.     
  128.     
  129.   else if (TC > event10 and TC <= event11) then
  130.     doEvent10 15, TRUE, hcentreout, 1, 12, FALSE  
  131.     
  132.   end if
  133.   
  134.   
  135.   return
  136.   
  137. end
  138.  
  139. on D02
  140.   global QTsprite, QTspriteDuration, QTspriteName, TC
  141.   
  142.   return
  143.   
  144. end
  145.  
  146.  
  147. on D03
  148.   global QTsprite, QTspriteDuration, QTspriteName, TC
  149.   
  150.   return
  151.   
  152. end
  153.  
  154.  
  155. on D04
  156.   global QTsprite, QTspriteDuration, QTspriteName, TC
  157.   
  158.   return
  159.   
  160. end
  161.  
  162. on D05
  163.   global QTsprite, QTspriteDuration, QTspriteName, TC
  164.   
  165.   set the visible of sprite 6 to TRUE
  166.   puppetTransition 09, 1, 8, FALSE
  167.   updatestage
  168.   
  169.   set the visible of sprite 7 to TRUE
  170.   puppetTransition 09, 1, 8, FALSE
  171.   updatestage
  172.   return
  173.   
  174.   
  175.   
  176. end
  177.  
  178.  
  179. on D06
  180.   global QTsprite, QTspriteDuration, QTspriteName, TC
  181.   
  182.   return
  183.   
  184. end
  185.  
  186. on D07
  187.   global QTsprite, QTspriteDuration, QTspriteName, TC
  188.   
  189.   return
  190.   
  191. end
  192.  
  193. on D08
  194.   global QTsprite, QTspriteDuration, QTspriteName, TC
  195.   
  196.   return
  197.   
  198. end
  199.  
  200. on D09
  201.   global QTsprite, QTspriteDuration, QTspriteName, TC
  202.   
  203.   return
  204.   
  205. end
  206.  
  207. on D10
  208.   global QTsprite, QTspriteDuration, QTspriteName, TC
  209.   
  210.   return
  211.   
  212. end
  213.  
  214. on D11
  215.   global QTsprite, QTspriteDuration, QTspriteName, TC
  216.   
  217.   return
  218.   
  219. end
  220.  
  221. on D12
  222.   global QTsprite, QTspriteDuration, QTspriteName, TC
  223.   
  224.   return
  225.   
  226. end
  227.  
  228. on D13
  229.   global QTsprite, QTspriteDuration, QTspriteName, TC
  230.   
  231.   
  232.   if (TC > 100 and TC <= 300) then
  233.     set the visible of sprite 6 to TRUE
  234.     
  235.   else if (TC > 401 and TC <= 500) then
  236.     set the visible of sprite 7 to TRUE
  237.     
  238.   else if (TC > 501 and TC <= 600) then
  239.     set the visible of sprite 8 to TRUE
  240.   else if (TC > 601 and TC <= 700) then
  241.     set the visible of sprite 9 to TRUE
  242.   else if (TC >701 and TC <= 750) then
  243.     set the visible of sprite 10 to TRUE
  244.   else if (TC >751 and TC <= 800) then
  245.     set the visible of sprite 11 to TRUE
  246.     
  247.     
  248.   end if
  249.   return
  250.   
  251. end
  252.  
  253. on D14
  254.   global QTsprite, QTspriteDuration, QTspriteName, TC
  255.   
  256.   if (TC > 260 and TC <= 370) then
  257.     set the visible of sprite 7 to TRUE
  258.     
  259.   else if (TC > 371 and TC <= 500) then
  260.     set the visible of sprite 6 to TRUE
  261.   else if (TC > 501 and TC <= 600) then
  262.     set the visible of sprite 8 to TRUE
  263.   else if (TC > 601 and TC <= 700) then
  264.     set the visible of sprite 9 to TRUE
  265.     
  266.   end if
  267.   
  268.   return
  269.   
  270. end
  271.  
  272. on D15
  273.   global QTsprite, QTspriteDuration, QTspriteName, TC
  274.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  275.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  276.   global hEdgesin, vblind, hblind, stripsBottomLeft
  277.   
  278.   set event1 = 460
  279.   set event2 = 481
  280.   set event3 = 530
  281.   set event4 = 750
  282.   set event5 = 870
  283.   set event6 = 1000
  284.   set event7 = 1170
  285.   set event8 = 1221
  286.   
  287.   if (TC > 460 and TC <= 480) then
  288.     set the visible of sprite 6 to TRUE    
  289.   else if (TC > 481 and TC <= 520) then
  290.     set the visible of sprite 7 to TRUE
  291.   else if (TC > 530 and TC <= 570) then
  292.     set the visible of sprite 8 to TRUE
  293.   else if (TC > 630 and TC <= 680) then
  294.     set the visible of sprite 9  to TRUE
  295.     if done1 <> the frame then
  296.       puppetTransition hcentreout, 1, 6, FALSE
  297.       set done1 = the frame
  298.       updatestage
  299.     end if
  300.     
  301.   else if (TC > 750 and TC <= 850) then
  302.     set the visible of sprite 10 to TRUE
  303.     if done6 <> the frame then
  304.       puppetTransition wipeup, 1, 6, FALSE
  305.       set done6 = the frame
  306.       updatestage      
  307.     end if
  308.   else if (TC > 870 and TC <= 930) then
  309.     set the visible of sprite 11 to TRUE 
  310.     if done5 <> the frame then
  311.       puppetTransition vblind, 1, 6, FALSE
  312.       set done5 = the frame
  313.       updatestage
  314.     end if
  315.     
  316.   else if (TC > 1100 and TC <= 1170) then
  317.     set the visible of sprite 12 to TRUE 
  318.     if done2 <> the frame then
  319.       puppetTransition hblind, 1, 6, FALSE
  320.       set done2 = the frame
  321.       updatestage
  322.     end if
  323.     
  324.   else if (TC > 1170 and TC <= 1220) then
  325.     set the visible of sprite 13 to TRUE
  326.     if done3 <> the frame then
  327.       puppetTransition vblind, 1, 6, FALSE
  328.       set done3 = the frame
  329.       updatestage
  330.     end if
  331.     
  332.   else if (TC > 1221 and TC <= 1250) then
  333.     set the visible of sprite 14 to TRUE
  334.     if done4 <> the frame then
  335.       puppetTransition hblind, 1, 6, FALSE
  336.       set done4 = the frame
  337.       updatestage
  338.     end if
  339.     
  340.   end if
  341.   
  342.   return
  343.   
  344. end
  345.  
  346. on D16
  347.   global QTsprite, QTspriteDuration, QTspriteName, TC
  348.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  349.   global vblind
  350.   
  351.   set event1 = 140  -- begining
  352.   set event2 = 180 -- middle
  353.   set event3 = 224 -- end
  354.   set event4 = 550 -- foundations
  355.   set event5 =  855 -- hitler
  356.   set event6 =  1164-- intransigence
  357.   set event7 =  1440 -- vicotry
  358.   set event8 =  1749 -- interviews
  359.   set event9 =  2013 -- jews
  360.   set event10 = 2652 -- chamberlain
  361.   set event11 = 2750 -- war
  362.   set event12 = 1096 -- unrest
  363.   set event13 = 1267 -- appeasement
  364.   set event14 = 1350 -- invasion
  365.   
  366.   
  367.   if (TC > event1 and TC <= event2) then
  368.     set the visible of sprite 6 to TRUE     
  369.   else if (TC > event2 and TC <= event3) then
  370.     set the visible of sprite 7 to TRUE 
  371.   else if (TC > event3 and TC <= event4) then
  372.     set the visible of sprite 8 to TRUE  
  373.   else if (TC > event4 and TC <= event5) then
  374.     set the visible of sprite 6 to FALSE
  375.     set the visible of sprite 7 to FALSE
  376.     set the visible of sprite 8 to FALSE
  377.     
  378.     set the visible of sprite 9 to TRUE  
  379.     if done4 <> the frame then
  380.       puppetTransition 07, 1, 4, FALSE
  381.       set done4 = the frame
  382.       updatestage
  383.     end if
  384.     
  385.   else if (TC > event5 and TC <= event5 + 30) then
  386.     set the visible of sprite 10 to TRUE 
  387.   else if (TC > event6 and TC <= event6 + 30) then
  388.     set the visible of sprite 11 to TRUE 
  389.   else if (TC > event7 and TC <= event8) then
  390.     set the visible of sprite 13 to FALSE
  391.     set the visible of sprite 14 to FALSE
  392.     set the visible of sprite 15 to FALSE
  393.     set the visible of sprite 16 to FALSE    
  394.     set the visible of sprite 12 to TRUE  
  395.     if done7 <> the frame then
  396.       puppetTransition vblind, 1, 6, FALSE
  397.       set done7 = the frame
  398.       updatestage
  399.     end if
  400.     
  401.   else if (TC > event10 and TC <= event11) then
  402.     hidesprites 6,12
  403.     set the visible of sprite 9 to TRUE 
  404.     
  405.     if done5 <> the frame then
  406.       puppetTransition 03, 1, 4, FALSE
  407.       set done5 = the frame
  408.       updatestage
  409.     end if
  410.     
  411.   else if (TC > event12 and TC <= event13) then
  412.     set the visible of sprite 13 to TRUE 
  413.   else if (TC > event13 and TC <= event13 + 50) then    
  414.     set the visible of sprite 14 to TRUE 
  415.     set the visible of sprite 15 to TRUE 
  416.   else if (TC > event14 and TC <= event14 + 50) then
  417.     set the visible of sprite 16 to TRUE 
  418.     
  419.   end if
  420.   
  421.   
  422. end
  423.  
  424.  
  425. on D16a
  426.   global QTsprite, QTspriteDuration, QTspriteName, TC
  427.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  428.   global vblind
  429.   
  430.   set event1  = 210  -- 6 foundations
  431.   set event2  = 545  -- 7 hitler
  432.   set event3  = 786  -- 8 unrest
  433.   set event4  = 854  -- 9 intransigence
  434.   set event5  = 957  -- 10 appeasement
  435.   set event6  = 1040 -- 11 invasion
  436.   set event7  = 1130 -- 12 victory
  437.   set event8  = 1439 -- 13 interviews
  438.   set event9  = 1703 -- 14 jews
  439.   set event10 = 2342 -- 15 chamberlain
  440.   set event11 = 2440 -- 16 war
  441.   
  442.   
  443.   if (TC > event1 and TC <= event2) then
  444.     doEvent1 6, TRUE, 0, 1, 4, FALSE  
  445.   else if (TC > event2 and TC <= event3) then
  446.     doEvent2 7, TRUE, 0, 1, 4, FALSE 
  447.   else if (TC > event3 and TC <= event4) then
  448.     doEvent3 8, TRUE, 0, 1, 4, FALSE  
  449.   else if (TC > event4 and TC <= event5) then
  450.     doEvent4 9, TRUE, 0, 1, 4, FALSE   
  451.   else if (TC > event5 and TC <= event6) then
  452.     doEvent5 10, TRUE, 0, 1, 4, FALSE    
  453.   else if (TC > event6 and TC <= event7) then
  454.     doEvent6 11, TRUE, 0, 1, 4, FALSE    
  455.     
  456.   else if (TC > event7 and TC <= event8) then
  457.     doEvent7 12, TRUE, 0, 1, 4, FALSE  
  458.   else if (TC > event8 and TC <= event9) then
  459.     doEvent8 13, TRUE, 0, 1, 4, FALSE  
  460.   else if (TC > event9 and TC <= event10) then
  461.     doEvent9 14, TRUE, 0, 1, 4, FALSE  
  462.   else if (TC > event10 and TC <= event11) then
  463.     doEvent10 15, TRUE, 0, 1, 4, FALSE  
  464.   else if (TC > event11 and TC <= event11 + 60) then
  465.     doEvent11 16, TRUE, 0, 1, 4, FALSE  
  466.   end if
  467.   
  468.   
  469.   
  470.   
  471. end
  472.  
  473.  
  474.  
  475. on D17
  476.   global QTsprite, QTspriteDuration, QTspriteName, TC
  477.   
  478.   if (TC > 175 and TC <= 227) then
  479.     doEvent1 6, TRUE, 01, 1, 4, FALSE  -- flower girl
  480.     
  481.   else if (TC > 228 and TC <= 284) then
  482.     doEvent2 7, TRUE, 02, 1, 4, FALSE -- speed record
  483.   else if (TC > 284 and TC <= 407) then
  484.     doEvent3 8, TRUE, 01, 1, 4, FALSE -- new homes
  485.   else if (TC > 408 and TC <= 479) then
  486.     doEvent4 9, TRUE, 02, 1, 4, FALSE   -- women at war
  487.   else if (TC > 480 and TC <= 574) then
  488.     doEvent5 10, TRUE, 01, 1, 4, FALSE -- GIs at play
  489.   else if (TC > 575 and TC <= 620) then
  490.     doEvent6 11, TRUE, 02, 1, 4, FALSE
  491.     
  492.   else if (TC > 620  and TC <= 666) then
  493.     doEvent7 12, TRUE, 01, 1, 4, FALSE -- boradway
  494.     
  495.   else if (TC > 667 and TC <= 746) then
  496.     doEvent8 13, TRUE, 02, 1, 4, FALSE -- Bing
  497.   else if (TC > 747 and TC <= 780) then
  498.     doEvent9 14, TRUE, 01, 1, 4, FALSE  -- BBC
  499.     
  500.     
  501.     
  502.   end if
  503.   return
  504.   
  505. end
  506.  
  507. on D18
  508.   global QTsprite, QTspriteDuration, QTspriteName, TC
  509.   global done1, done2, done3, done4
  510.   global wipedown, wipeup, wipeleft, wiperight, hcentreout, vcentreout
  511.   global hEdgesin, vblind, hblind, stripsBottomLeft
  512.   
  513.   set event1 = 843  -- baby
  514.   set event2 = 979  --
  515.   set event3 = 1154 --
  516.   set event4 = 1310 --
  517.   set event5 = 1483 --
  518.   set event6 = 1558 --
  519.   set event7 = 1710 --
  520.   set event8 = 1740 --
  521.   set event9 = 494 -- curious
  522.   set event10 = 544 -- humourous
  523.   set event11 = 590 -- poignant
  524.   set event12 = 92 -- war
  525.   set event13 = 135 -- disaster
  526.   set event14 = 195 -- destruction
  527.   
  528.   
  529.   
  530.   if (TC > event1 and TC <= event2 - 1) then
  531.     set the visible of sprite 6 to TRUE 
  532.     
  533.     if done1 <> the frame then
  534.       set the visible of sprite 13 to FALSE
  535.       set the visible of sprite 14 to FALSE
  536.       set the visible of sprite 15 to FALSE
  537.       
  538.       puppetTransition hcentreout, 1, 4, FALSE
  539.       set done1 = the frame
  540.       updatestage
  541.     end if
  542.     
  543.   else if (TC > event2 and TC <= event3 - 1) then
  544.     set the visible of sprite 7 to TRUE 
  545.   else if (TC > event3 and TC <= event4 - 1) then
  546.     set the visible of sprite 8 to TRUE  
  547.   else if (TC > event4 and TC <= event5 - 1) then
  548.     set the visible of sprite 9 to TRUE  
  549.   else if (TC > event5 and TC <= event6 - 1) then
  550.     set the visible of sprite 10 to TRUE 
  551.   else if (TC > event6 and TC <= event7 - 1) then
  552.     set the visible of sprite 11 to TRUE 
  553.   else if (TC > event7 and TC <= event8 - 1) then
  554.     set the visible of sprite 12 to TRUE  
  555.   else if (TC > event9 and TC <= event10) then
  556.     set the visible of sprite 13 to TRUE  
  557.     set the visible of sprite 16 to FALSE
  558.     set the visible of sprite 17 to FALSE
  559.     set the visible of sprite 18 to FALSE
  560.     
  561.   else if (TC > event10 and TC <= event11) then
  562.     set the visible of sprite 14 to TRUE 
  563.     set the visible of sprite 16 to FALSE
  564.     set the visible of sprite 17 to FALSE
  565.     set the visible of sprite 18 to FALSE
  566.     
  567.   else if (TC > event11 and TC <= event11 + 60) then
  568.     set the visible of sprite 15 to TRUE 
  569.   else if (TC > event12 and TC <= event13) then
  570.     set the visible of sprite 16 to FALSE 
  571.     if done2 <> the frame then
  572.       puppetTransition vblind, 1, 2, FALSE
  573.       set done2 = the frame
  574.       updatestage
  575.     end if
  576.     
  577.   else if (TC > event13 and TC <= event14) then
  578.     set the visible of sprite 17 to FALSE
  579.     if done3 <> the frame then
  580.       puppetTransition hblind, 1, 2, FALSE
  581.       set done3 = the frame
  582.       updatestage
  583.     end if
  584.   else if (TC > event14 and TC <= event14 + 50) then
  585.     set the visible of sprite 18 to FALSE 
  586.     if done4 <> the frame then
  587.       puppetTransition vblind, 1, 2, FALSE
  588.       set done4 = the frame
  589.       updatestage
  590.     end if
  591.     
  592.     
  593.   end if
  594.   return
  595.   
  596. end
  597.  
  598. on D19a
  599.   global QTsprite, QTspriteDuration, QTspriteName, TC
  600.   global done1, done2, done3, done4, done5, done6, done7
  601.   
  602.   set event1 = 160 -- news
  603.   set event2 = 232 -- femail
  604.   set event3 = 312 -- lifestyle
  605.   set event4 = 397 -- sport
  606.   set event5 = 486 -- royality
  607.   set event6 = 576 -- arts
  608.   set event7 = 610 --
  609.   
  610.   if (TC > event1 and TC <= event2) then
  611.     doEvent1 6, TRUE, 01, 1, 4, FALSE  
  612.   else if (TC > event2 and TC <= event3) then
  613.     doEvent2 7, TRUE, 01, 1, 4, FALSE 
  614.   else if (TC > event3 and TC <= event4) then
  615.     doEvent3 8, TRUE, 01, 1, 4, FALSE  
  616.   else if (TC > event4 and TC <= event5) then
  617.     doEvent4 9, TRUE, 01, 1, 4, FALSE   
  618.   else if (TC > event5 and TC <= event6) then
  619.     doEvent5 10, TRUE, 01, 1, 4, FALSE    
  620.   else if (TC > event6 and TC <= event7) then
  621.     doEvent6 11, TRUE, 01, 1, 4, FALSE        
  622.   end if 
  623.   
  624. end
  625.  
  626.  
  627. on D20
  628.   global QTsprite, QTspriteDuration, QTspriteName, TC
  629.   global done1
  630.   
  631.   set the visible of sprite 6 to TRUE  
  632.   if done1 <> the frame then
  633.     puppetTransition 49, 1, 2, FALSE
  634.     set done1 = the frame
  635.     updatestage
  636.   end if  
  637.   
  638.   return
  639.   
  640. end
  641.  
  642. on D21
  643.   global QTsprite, QTspriteDuration, QTspriteName, TC
  644.   global done1
  645.   
  646.   set the visible of sprite 6 to TRUE  
  647.   if done1 <> the frame then
  648.     puppetTransition 49, 1, 2, FALSE
  649.     set done1 = the frame
  650.     updatestage
  651.   end if  
  652.   return
  653.   
  654. end
  655.  
  656. on D22
  657.   global QTsprite, QTspriteDuration, QTspriteName, TC
  658.   global done1
  659.   
  660.   set the visible of sprite 6 to TRUE  
  661.   if done1 <> the frame then
  662.     puppetTransition 49, 1, 2, FALSE
  663.     set done1 = the frame
  664.     updatestage
  665.   end if
  666.   
  667.   return
  668.   
  669. end
  670.  
  671. on D23
  672.   global QTsprite, QTspriteDuration, QTspriteName, TC
  673.   global done1
  674.   
  675.   set the visible of sprite 6 to TRUE  
  676.   if done1 <> the frame then
  677.     puppetTransition 49, 1, 2, FALSE
  678.     set done1 = the frame
  679.     updatestage
  680.   end if
  681.   
  682.   return
  683.   
  684. end
  685.  
  686. on D24
  687.   global QTsprite, QTspriteDuration, QTspriteName, TC
  688.   global done1
  689.   
  690.   set the visible of sprite 6 to TRUE  
  691.   if done1 <> the frame then
  692.     puppetTransition 49, 1, 2, FALSE
  693.     set done1 = the frame
  694.     updatestage
  695.   end if
  696.   
  697.   return
  698.   
  699. end
  700.  
  701.  
  702. on D25
  703.   global QTsprite, QTspriteDuration, QTspriteName, TC
  704.   
  705.   return
  706.   
  707. end
  708.  
  709.  
  710. on D26
  711.   global QTsprite, QTspriteDuration, QTspriteName, TC
  712.   set event1 = 60  --
  713.   set event2 = 170  --
  714.   set event3 = 280 --
  715.   set event4 = 320 --
  716.   set event5 = 450 --
  717.   set event6 = 600 --
  718.   
  719.   
  720.   if (TC > event1 and TC <= event2 ) then
  721.     set the visible of sprite 6 to TRUE     
  722.   else if (TC > event2 and TC <= event3) then
  723.     set the visible of sprite 7 to TRUE 
  724.   else if (TC > event3 and TC <= event4) then
  725.     set the visible of sprite 8 to TRUE  
  726.   else if (TC > event4 and TC <= event5) then
  727.     set the visible of sprite 9 to TRUE  
  728.   else if (TC > event5 and TC <= event6) then
  729.     set the visible of sprite 10 to TRUE  
  730.     
  731.   end if
  732.   
  733.   return
  734.   
  735. end
  736.  
  737. on D27
  738.   global QTsprite, QTspriteDuration, QTspriteName, TC
  739.   global done1, done2, done3, done4, done5, done6, done7, done8, done9
  740.   
  741.   set the visible of sprite 6 to TRUE
  742.   set the visible of sprite 7 to TRUE
  743.   set the visible of sprite 8 to TRUE
  744.   set the visible of sprite 9 to TRUE
  745.   set the visible of sprite 10 to TRUE
  746.   set the visible of sprite 11 to TRUE
  747.   
  748.   if TC > 150 and TC < 200 then
  749.     set the visible of sprite 12 to TRUE
  750.     
  751.     if done1 <> the frame then
  752.       puppetTransition 49, 1, 2, FALSE
  753.       set done1 = the frame
  754.       updatestage
  755.     end if
  756.     
  757.   else if (TC > 300 and TC <= 340) then
  758.     set the visible of sprite 13 to TRUE
  759.     if done2 <> the frame then
  760.       puppetTransition 49, 1, 2, FALSE
  761.       set done2 = the frame
  762.       updatestage
  763.     end if
  764.     
  765.   end if
  766.   
  767.   
  768.   
  769.   return
  770.   
  771. end
  772.  
  773. on D28
  774.   global QTsprite, QTspriteDuration, QTspriteName, TC
  775.   global wipeleft, wipedown
  776.   set event1 = 160 -- 
  777.   set event2 = 210 -- 
  778.   set event3 = 270
  779.   set event4 = 320
  780.   
  781.   
  782.   
  783.   if (TC > event1 and TC <= event2) then
  784.     doEvent1 6, TRUE, wipeleft, 1, 4, FALSE  
  785.   else if (TC > event2 and TC <= event3) then
  786.     doEvent2 7, TRUE, 0, 1, 8, FALSE 
  787.   else if (TC > event3 and TC <= event4) then
  788.     doEvent3 8, TRUE, 0, 1, 8, FALSE 
  789.   end if 
  790.   
  791.   
  792.   return
  793.   
  794. end
  795.  
  796.  
  797.  
  798.